Software Vault: The Diamond Collection/The Diamond Collection (Software Vault)(Digital Impact).ISO/cdr37/match_10.zip/MATCH.WCX

Wildcat! WCX | 1995-03-11 | 2KB | 220 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  2098 bytes  01/29/123  04:30:30pm
'! Code Segment Size  :1686 bytes
'! Data Segment Size  :4680 bytes
'! String Segment Size:412 bytes
'! Compiled with WCC version 4.01

      Dim s4463 As String
      Dim s4467 As String
      Dim s4471 As String
      Dim s4475 As String
      Dim s4479 As String
      Dim s4483 As String
      Dim s4487 As String
      Dim s4491 As String
      Dim s4495 As String
      Dim s4499 As String
      Dim s4503 As String
      Dim s4507 As String
      Dim s4511 As String
      Dim s4515 As String
      Dim s4519 As String
      Dim s4523 As String
      Dim s4527 As String
      Dim s4531 As String
      Dim s4539 As String
      Dim s4543 As String
      Dim s4547 As String
      Dim s4551 As String
      Dim s4559 As String
      Dim s4563 As String
      Dim s4567 As String
      Dim s4571 As String
      Dim s4575 As String
      Dim s4587 As String
      Dim i4591 As Integer
      Dim s4597 As String
      Dim s4601 As String
      Dim s4605 As String
      Dim s4609 As String
      Dim s4613 As String
      Dim s4617 As String
      Dim s4621 As String
      Dim s4625 As String
      Dim s4629 As String
      Dim s4633 As String
      Dim s4637 As String
      Dim i4641 As Integer
      Dim s4643 As String
      Dim i4647 As Integer
      Dim b4649 As Byte
      Dim s4650 As String
      Dim s4654 As String
      Dim s4658 As String
      Dim s4662 As String
      Dim i4670 As Integer
      Dim s4672 As String
      Dim s4676 As String

      Open "Matcher!.cfg" For Input As 1
      Input #1, s4463
      Input #1, s4467
      Input #1, s4471
      Input #1, s4475
      Input #1, s4479
      Input #1, s4483
      Input #1, s4487
      Input #1, s4491
      Input #1, s4495
      Input #1, s4499
      Input #1, s4503
      Input #1, s4507
      Input #1, s4511
      Input #1, s4515
      Input #1, s4519
      Input #1, s4523
      Close 1
      s4531 = s4519
      Open s4531 For Output As 6
      Print #6, s4491; User.UserId; ".mat"
      Close 6
      Open s4531 For Input As 5
      Input #5, s4527
      Close 5
      Open s4527 For Output As 4
      Print #4,
      Close 4
      s4654 = s4523
      Open s4654 For Output As 9
      Print #9, b4649
      Close 9
      Open s4654 For Input As 8
      Input #8, s4650
      Close 8
      If User.Sex = 1 Then
        s4650 = "M"
      Else
  402   If User.Sex = 2 Then
          s4650 = "F"
        Else
  437     GoTo 1462
        End If
      End If
  443 i4641 = 0
      i4647 = 0
      s4539 = s4519
      Open s4539 For Output As 1
      Print #1, s4491; User.UserId; "P"
      Close 1
      Open s4539 For Input As 8
      Input #8, s4658
      Close 8
      Open s4658 For Input As 2
      Input #2, s4547
      Input #2, s4551
      Input #2, s4559
      Input #2, s4563
      Input #2, s4567
      Input #2, s4571
      Input #2, s4575
      Input #2, s4662
      Input #2, i4591
      Close 2
      If s4587 = "Male" Then
        s4650 = "M"
      Else
  665   If s4587 = "Female" Then
          s4650 = "F"
        End If
      End If
  691 s4543 = s4523
      i4670 = 0
      Print "Now Calculating your matches.  Please wait, this may take a couple of"
      Print "Minutes, depending on the amount of users."
      Do
        Do
  723     i4641 = 0
          i4647 = i4647 + 1
          If i4647 = 1000 Then
            GoTo 1276
          End If
  765     Open s4543 For Output As 3
          Print #3, s4491; s4662; i4647
          Close 3
          Open s4543 For Input As 4
          Input #4, s4643
          Close 4
          If Exists(s4643) Then
            GoTo 873
            GoTo 873
          End If
  867   Loop
  873   Open s4643 For Input As 5
        Input #5, s4597
        Input #5, s4601
        Input #5, s4605
        Input #5, s4609
        Input #5, s4613
        Input #5, s4617
        Input #5, s4621
        Input #5, s4625
        Input #5, s4629
        Input #5, s4633
        Input #5, s4637
        Input #5, s4672
        Close 5
        If s4559 = s4609 Then
          i4641 = i4641 + 20
        End If
 1011   If s4563 = s4613 Then
          i4641 = i4641 + 20
        End If
 1041   If s4567 = s4617 Then
          i4641 = i4641 + 20
        End If
 1071   If s4571 = s4621 Then
          i4641 = i4641 + 20
        End If
 1101   If s4575 = s4625 Then
          i4641 = i4641 + 20
        End If
 1131   If i4641 >= 0 Then
          If i4641 > i4591 Then
            i4670 = i4670 + 1
          End If
 1177     If i4641 < i4591 Then
          Else
 1201       Open s4527 For Append As 9
            Print #9, s4597; , ; s4601; , ; i4641; "% Match"
            Close 9
          End If
        End If
 1264 Loop
      GoTo 1276
 1276 If i4670 <= 0 Then
      Else
 1296   Print
        Print "Thanks for waiting!"
        Print
        Print "You were matched "; i4670; " times"
        Print "Would you like to see the list?"
        s4676 = InputMask("", "Y", "", 1213417543)
        If s4676 = "Y" Then
          DisplayTextFile(s4527)
          WaitEnter
        Else
 1402     If s4676 = "N" Then
            GoTo 1462
          End If
        End If
 1425   GoTo 1462
      End If
 1431 Print
      Print
      Print "@0F@Sorry, you weren't matched.  You might want to consider lowering the"
      Print "Minimum Percentage in your Preferences.  Better luck next time!@0B@"
      WaitEnter
      GoTo 1462
 1462 Chain s4503, ""